home *** CD-ROM | disk | FTP | other *** search
/ The Macintosh Demo Applications CD / Apple-MacintoshDemoApplicationsCD-1.0-1992.iso / More Information / Publish It! Easy 2.2 / Publish It! Easy 2.2 Demo / †Publish It! Easy 2.2 Demo.rsrc / STR#_1030.txt < prev    next >
Text File  |  1992-08-10  |  727b  |  94 lines
  1. palmy |F0 sub palmx palmy |F1 add palmx |F2 add 
  2.  
  3. .18 .18 pen
  4.  
  5.  
  6. .5 .5 pen
  7.  
  8.  
  9. |F0 |F1 pen
  10.  
  11.  
  12. |F0 |F1 |F2 |F3 
  13.  
  14. currentfont |F0 scalefont setfont
  15.  
  16.  
  17. 0 ov
  18.  
  19.  
  20. |F4 |F5 0 rr
  21.  
  22.  
  23. 0 rc
  24.  
  25.  
  26. palmy |F0 sub palmx palmy |F1 add currentpoint pop 
  27.  
  28. palmx currentpoint pop sub 0 rlineto
  29.  
  30.  
  31. /palmx currentpoint pop def
  32. /palmy currentpoint exch pop def
  33.  
  34.  
  35. closepath
  36.  
  37.  
  38. currentpoint newpath moveto
  39.  
  40.  
  41. stroke
  42.  
  43.  
  44.  1 1 pen
  45.  
  46.  
  47. palmmtx setmatrix
  48.  
  49.  
  50. /palmmtx matrix currentmatrix def
  51.  
  52.  
  53. |F0 |F1 |F2 |F3 1 ov
  54.  
  55.  
  56. |F0 |F1 |F2 |F3 0 ov
  57.  
  58.  
  59. |F0 |F1 |F2 |F3 |F4 |F5 1 rr
  60.  
  61.  
  62. |F0 |F1 |F2 |F3 |F4 |F5 0 rr
  63.  
  64.  
  65. |F0 |F1 |F2 |F3 1 rc
  66.  
  67.  
  68. |F0 |F1 |F2 |F3 0 rc
  69.  
  70.  
  71. |F0 0
  72.  
  73. |F0 1 scale
  74.  
  75.  
  76.  
  77.  
  78. mark F |I0<|H1>pat cleartomark
  79.  
  80.  
  81. |F0 |F1 rlineto
  82.  
  83.  
  84. |F0 |F1 lineto
  85.  
  86.  
  87. |F0 |F1 rmoveto
  88.  
  89.  
  90.  
  91. |F0 |F1 moveto
  92.  
  93.  
  94.